home *** CD-ROM | disk | FTP | other *** search
/ Apple Macintosh CD: Power Macintosh 4400 Series / 691-1334-A,B,Power Macintosh 4400 Series. Apple Macintosh CD. (CD).toast / CD Extras / QuickDraw™ 3D Extras / Cumulus 2.5 for QuickDraw™ 3D / More Scripts / keywords as one text < prev    next >
Text File  |  1995-06-05  |  563b  |  22 lines
  1. property kwText : text
  2.  
  3. on processKeyword(kwRef)
  4.     tell application "Cumulus"
  5.         repeat (level of kwRef) - 1 times
  6.             set kwText to kwText & tab
  7.         end repeat
  8.         
  9.         set kwText to kwText & name of kwRef & return
  10.         repeat with k from 1 to (count every keyword of kwRef)
  11.             my processKeyword(a reference to keyword k of kwRef)
  12.         end repeat
  13.     end tell
  14. end processKeyword
  15.  
  16. set kwText to "" as text
  17. tell application "Cumulus"
  18.     repeat with k from 1 to (count every keyword of database 1)
  19.         my processKeyword(a reference to keyword k of database 1)
  20.     end repeat
  21. end tell
  22. kwText